/setcmykcolor where{pop}
 {/setcmykcolor{1 sub 4 1 roll 3{3 index add neg dup 0 lt
 {pop 0}if 3 1 roll}repeat setrgbcolor pop}bdf}ifelse

/setcolortransfer where {pop}
 {/setcolortransfer{systemdict begin settransfer end xppop3}def}ifelse